<script>on importThesaurus-- bring in the text --- start a new card at every "#" signput "Roget's Thesaurus 1911" into fnameopen file fnamerepeat foreverdoMenu "New Card"read from file fname until "#"if It is empty then exit repeatput It into field "txt"end repeatclose file fnameend importThesaurus</script>